home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_luthr.scp < prev    next >
Text File  |  1994-11-15  |  2KB  |  106 lines
  1. { LUTHOR_AI
  2.  
  3.     P        ~ÇÇ  
  4.  
  5.     :LOOP
  6.  
  7.     // MAKE SURE IT'S OK TO MOVE AROUND AND ATTACK
  8.  
  9.     I ( .ÇéÇâ               != $üì            ) THEN
  10.         {
  11.         â      
  12.         J    #Çü 
  13.         }
  14.  
  15.     ~ÇÇ   = @Ç¥   MONSTER_MOVE 15
  16.  
  17.     I  ( ~ÇÇ   > 0 ) THEN
  18.         {
  19.         N     ( ~ÇÇ   )
  20.             {
  21.             U    1
  22.             I  @Çô        ("atk_m1") != $Ç╝   THEN
  23.                 M      ATK_M1 CONTINUE
  24.                 X ÇÇ 
  25.             U    2
  26.                 I  @Çô        ("atk_m2") != $Ç╝   THEN
  27.                 M      ATK_M2 CONTINUE
  28.                 X ÇÇ 
  29.             U    3
  30.             I  @Çô        ("atk_m3") != $Ç╝   THEN
  31.                 M      ATK_M3 CONTINUE
  32.                 X ÇÇ 
  33.             U    4
  34.             U    6
  35.                 ┴            
  36.                 X ÇÇ 
  37.             U    7
  38.             I  @Çô        ("atk_m7") != $Ç╝   THEN
  39.                 M      ATK_M7 CONTINUE
  40.                 X ÇÇ 
  41.             U    8
  42.             I  @Çô        ("atk_m8") != $Ç╝   THEN
  43.                 M      ATK_M8 CONTINUE
  44.                 X ÇÇ 
  45.             U    9
  46.             I  @Çô        ("atk_m9") != $Ç╝   THEN
  47.                 M      ATK_M9 CONTINUE
  48.                 X ÇÇ 
  49.             U    10
  50.             I  @Çô        ("atk_m10") != $Ç╝   THEN
  51.                 M      ATK_M10 CONTINUE
  52.                 X ÇÇ 
  53.             }
  54.         }
  55.     E   
  56.         {
  57.                     @Çì      LUTHOR_ATTACK
  58.         }
  59.  
  60.     â      
  61.     J    #Çü 
  62.  
  63. }
  64.  
  65. { LUTHOR_ATTACK
  66. //@@@ TRANSLATE F
  67. //    CAPTION "!!! ATTACKING !!! /FA L'ATTAQUE /G!!! GREIFT AN !!!"
  68.  
  69.     N      (@Çà    ( 0, 9 ))
  70.         {
  71.         U    0
  72.             M      ATK_H4
  73.             X Çü 
  74.         U    1
  75.             M      ATK_H6
  76.             X Çü 
  77.         U    2
  78.             M      ATK_H7
  79.             X Çü 
  80.         U    3
  81.             M      ATK_H8
  82.             X Çü 
  83.         U    4
  84.             M      ATK_H9
  85.             X Çü 
  86.         U    5
  87.             M      ATK_F1
  88.             X Çü 
  89.         U    6
  90.             M      ATK_F3
  91.             X Çü 
  92.         U    7
  93.             M      ATK_F4
  94.             X Çü 
  95.         U    8
  96.             M      ATK_F6
  97.             X Çü 
  98.         U    9
  99.             M      ATK_F7
  100.             X Çü 
  101.         }
  102. }
  103.  
  104.  
  105. //$ 26 - version number
  106.